home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 16
/
64er_Magazin_Sonderheft_16_19xx_Markt__Technik_de_Side_A.d64
/
ls 8
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
3KB
|
81 lines
100 rem spritedaten links gehen
110 rem
120 rem belegt bloecke 136-143
130 rem
140 print"[147]sprite-daten 2 werden uebertragen."
150 rem **********phase 1**************
160 for n=8704 to 8766:read q:poke n,q:next
170 data 0,10,0,0,42,128,1,70,128
180 data 1,85,160,0,85,160,0,21,8
190 data 0,7,0,0,15,0,0,61,64
200 data 0,255,80,0,255,212,1,255,212
210 data 5,255,80,5,63,64,0,42,0
220 data 0,170,0,2,175,128,2,131,160
230 data 2,128,229,2,144,53,21,81,84
240 rem **********phase 2**************
250 for n=8768 to 8830:read q:poke n,q:next
260 data 0,10,0,0,42,128,1,70,128
270 data 1,85,160,0,85,160,0,21,40
280 data 0,7,0,0,15,0,0,61,192
290 data 0,253,64,0,255,64,0,255,80
300 data 1,255,64,1,125,64,0,105,0
310 data 0,170,0,0,175,0,0,174,128
320 data 0,163,160,0,40,228,1,85,84
330 rem **********phase 3**************
340 for n=8832 to 8894:read q:poke n,q:next
350 data 0,10,0,0,42,128,1,70,128
360 data 1,85,160,0,85,160,0,21,32
370 data 0,7,8,0,15,0,0,61,192
380 data 0,253,192,0,253,112,0,253,112
390 data 0,245,240,0,53,192,0,22,128
400 data 0,234,0,0,235,0,0,42,128
410 data 0,43,64,0,10,64,1,85,64
420 rem **********phase 4**************
430 for n=8896 to 8958:read q:poke n,q:next
440 data 0,10,0,0,42,128,1,70,128
450 data 1,85,160,0,85,160,0,21,40
460 data 0,7,0,0,15,0,0,61,192
470 data 0,245,192,0,245,240,0,245,240
480 data 0,215,240,0,87,192,0,106,128
490 data 0,234,0,2,234,0,2,186,128
500 data 0,174,160,0,84,160,1,85,80
510 rem **********phase 5**************
520 for n=8960 to 9022:read q:poke n,q:next
530 data 0,10,0,0,42,128,1,70,128
540 data 1,85,160,0,85,168,0,21,32
550 data 0,7,0,0,15,0,0,61,192
560 data 0,245,192,0,245,240,0,215,240
570 data 0,87,244,1,95,212,1,106,128
580 data 0,42,128,0,174,128,2,178,160
590 data 2,176,169,2,176,41,21,80,85
600 rem **********phase 6**************
610 for n=9024 to 9086:read q:poke n,q:next
620 data 0,10,0,0,42,128,1,70,128
630 data 1,85,160,0,85,168,0,21,32
640 data 0,7,0,0,15,0,0,61,192
650 data 0,245,192,0,245,240,0,245,240
660 data 0,245,240,0,215,208,0,86,144
670 data 0,42,128,0,234,128,0,174,128
680 data 0,174,128,0,43,160,5,85,80
690 rem **********phase 7**************
700 for n=9088 to 9150:read q:poke n,q:next
710 data 0,10,0,0,42,128,1,70,128
720 data 1,85,160,0,85,160,0,21,40
730 data 0,7,0,0,15,0,0,61,192
740 data 0,253,192,0,253,112,0,253,112
750 data 0,245,240,0,245,192,0,22,128
760 data 0,42,128,0,42,128,0,42,128
770 data 0,40,224,0,40,244,0,85,84
780 rem **********phase 8**************
790 for n=9152 to 9214:read q:poke n,q:next
800 data 0,10,0,0,42,128,1,70,128
810 data 1,85,160,0,85,160,0,21,32
820 data 0,7,8,0,15,0,0,61,192
830 data 0,253,64,0,253,112,0,255,80
840 data 0,255,80,0,253,64,0,117,64
850 data 0,42,128,0,42,128,0,171,160
860 data 0,160,228,0,160,20,5,81,80
870 rem *******************************
880 print"sprite-daten 2 sind installiert!"
890 end